home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / gcc / libnix.lha / gnu / lib / libnix / sources.lha / nix / stdio / open.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-23  |  2.8 KB  |  126 lines
  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <fcntl.h>
  4. #include <unistd.h>
  5. #include <limits.h>
  6. #undef LONGBITS
  7. #undef BITSPERBYTE
  8. #undef MAXINT
  9. #undef MININT
  10. #include <dos/dos.h>
  11. #define DEVICES_TIMER_H
  12. #include <dos/dosextens.h>
  13. #ifdef __GNUC__
  14. #include <inline/exec.h>
  15. #include <inline/dos.h>
  16. #endif
  17. #include <stabs.h>
  18.  
  19. extern void __seterrno(void);
  20.  
  21. unsigned long *__stdfiledes;
  22. static unsigned long stdfilesize=3;
  23. static long stderrdes; /* The normal Amiga shell sets no process->pr_CES stream -
  24.                         * we use Open("*",MODE_NEWFILE) in this case
  25.                         */
  26.  
  27. void __initstdio(void)
  28. { struct Process *p;
  29.   __stdfiledes=(unsigned long *)malloc(3*sizeof(unsigned long));
  30.   if(__stdfiledes==NULL)
  31.     exit(20);
  32.   p=(struct Process *)FindTask(NULL);
  33.   __stdfiledes[STDIN_FILENO ]=Input();
  34.   __stdfiledes[STDOUT_FILENO]=Output();
  35.   if(!(__stdfiledes[STDERR_FILENO]=p->pr_CES))
  36.     if(!(__stdfiledes[STDERR_FILENO]=stderrdes=Open("*",MODE_NEWFILE)))
  37.       __stdfiledes[STDERR_FILENO]=__stdfiledes[STDOUT_FILENO];
  38. }
  39.  
  40. /* Call our private constructor */
  41. ADD2INIT(__initstdio,-30);
  42.  
  43. void __exitstdio(void)
  44. { int i;
  45.  
  46.   for(i=3;i<stdfilesize;i++)
  47.     if(__stdfiledes[i])
  48.       close(__stdfiledes[i]);
  49.  
  50.   if(stderrdes)
  51.     Close(stderrdes);
  52. }
  53.  
  54. /* Call our private destructor at cleanup */
  55. ADD2EXIT(__exitstdio,-30);
  56.  
  57. int open(const char *path,int flags,...)
  58. { 
  59.   int file;
  60.  
  61.   for(file=0;file<stdfilesize;file++)
  62.     if(!__stdfiledes[file])
  63.       break;
  64.  
  65.   if(file>SHRT_MAX)
  66.     return -1;
  67.  
  68.   if(file==stdfilesize)
  69.   { unsigned long *tmp;
  70.     tmp=realloc(__stdfiledes,(stdfilesize+1)*sizeof(unsigned long));
  71.     if(tmp==NULL)
  72.       return -1;
  73.     __stdfiledes=tmp;
  74.     stdfilesize++;
  75.   }
  76.  
  77.   if((__stdfiledes[file]=Open((char *)path,flags&O_TRUNC?MODE_NEWFILE:
  78.                               flags&(O_WRONLY|O_RDWR)?MODE_READWRITE:MODE_OLDFILE)))
  79.   { if(ChangeMode(CHANGE_FH,__stdfiledes[file],
  80.                   flags&(O_WRONLY|O_RDWR)?MODE_NEWFILE:MODE_OLDFILE))
  81.       return file;
  82.     __seterrno();
  83.     Close(__stdfiledes[file]);
  84.     __stdfiledes[file]=0;
  85.     return -1;
  86.   }
  87.   __seterrno();
  88.   return -1;
  89. }
  90.  
  91. int close(int d)
  92. { int ret=-1;
  93.   if(d>2)
  94.   { ret=Close(__stdfiledes[d])?0:-1;
  95.     __stdfiledes[d]=0; }
  96.   return ret;
  97. }
  98.  
  99. off_t lseek(int d,off_t offset,int whence)
  100. { long r;
  101.   r=Seek(__stdfiledes[d],offset,whence==SEEK_SET?OFFSET_BEGINNING:
  102.          whence==SEEK_END?OFFSET_END:OFFSET_CURRENT);
  103.   if(r==EOF)
  104.     return r;
  105.   return Seek(__stdfiledes[d],0,OFFSET_CURRENT);
  106. }
  107.  
  108. ssize_t read(int d,void *buf,size_t nbytes)
  109. { long r;
  110.   r=Read(__stdfiledes[d],buf,nbytes);
  111.   if(r<0)
  112.     __seterrno();
  113.   return r;
  114. }
  115.  
  116. ssize_t write(int d,const void *buf,size_t nbytes)
  117. { long r;
  118.   r=Write(__stdfiledes[d],(char *)buf,nbytes);
  119.   if(r<0)
  120.     __seterrno();
  121.   return r;
  122. }
  123.  
  124. int isatty(int d)
  125. { return IsInteractive(__stdfiledes[d]); }
  126.